home *** CD-ROM | disk | FTP | other *** search
/ Clickx 115 / Clickx 115.iso / software / tools / windows / tails-i386-0.16.iso / live / filesystem.squashfs / usr / local / bin / getTorbuttonUserAgent < prev    next >
Encoding:
Text File  |  2012-11-04  |  743 b   |  36 lines
  1. #!/usr/bin/perl
  2.  
  3. use warnings;
  4. use strict;
  5. use 5.10.0;
  6. use Fatal qw( open close );
  7.  
  8. sub getTorbuttonUserAgent {
  9.     my $file = shift;
  10.  
  11.     my $ua;
  12.     open (my $in, "<", $file);
  13.     while (my $line = <$in>) {
  14.         chomp $line;
  15.         if ($line =~ m/^pref\("extensions\.torbutton\.useragent_override",$/) {
  16.             my $next_line = <$in>;
  17.             if (($ua) = ($next_line =~ m/^ *"(.*)"\);$/)) {
  18.                 last;
  19.             }
  20.             else {
  21.                 die "Unparseable file.";
  22.             }
  23.         }
  24.     }
  25.     close $in;
  26.     return $ua;
  27. }
  28.  
  29. my $ua = getTorbuttonUserAgent('/usr/share/xul-ext/torbutton/defaults/preferences/preferences.js');
  30. if (defined $ua && $ua) {
  31.     say $ua;
  32. }
  33. else {
  34.     die "Unparseable file."
  35. }
  36.